home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / lib_show / basic_time / example4.e < prev    next >
Text File  |  2000-03-25  |  560b  |  28 lines
  1. class EXAMPLE4
  2. --
  3. -- Using the TIME_IN_FRENCH class.
  4. --
  5.  
  6. creation make
  7.  
  8. feature {NONE}
  9.  
  10.    make is
  11.       local
  12.          basic_time: BASIC_TIME;
  13.          format: TIME_IN_FRENCH;
  14.       do
  15.          basic_time.update;
  16.          format.set_basic_time(basic_time);
  17.          io.put_string("Le grand format :%N");
  18.          format.set_short_mode(false);
  19.          format.print_on(io);
  20.          io.put_new_line;
  21.          io.put_string("Le petit format :%N");
  22.          format.set_short_mode(true);
  23.          format.print_on(io);
  24.          io.put_new_line;
  25.       end;
  26.    
  27. end
  28.